home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / poe adventure (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  22KB  |  681 lines
  1. 2 dima$(12),o$(24),o(24),r$(15)
  2. 5 poke53280,6:poke53281,0:poke646,1:printchr$(14)
  3. 10 goto15000
  4. 1000 remconversation
  5. 1010 ifr=14andd(4)=0thengosub25030:ifde(2)=4then16000
  6. 1020 ifr=4thengosub25000:ifde(1)=4then16000
  7. 1030 x=0
  8. 1040 iff4=3then16000
  9. 1060 print
  10. 1070 print"--->[215]hat should [201] do now?":print:inputc$:print
  11. 1080 ifc$=""thenprinta$(1):goto1000
  12. 1090 iflen(c$)=1ormid$(c$,2,1)=" "then1210
  13. 1100 ifmid$(c$,2,1)=" "thenprinta$(2):printleft$(c$,1):goto1000
  14. 1110 iflen(c$)=2ormid$(c$,3,1)=" "then2000
  15. 1120 iflen(c$)=3ormid$(c$,4,1)=" "then3000
  16. 1130 iflen(c$)=4ormid$(c$,5,1)=" "then4000
  17. 1140 iflen(c$)=5ormid$(c$,6,1)=" "then6000
  18. 1150 iflen(c$)=6ormid$(c$,7,1)=" "then8000
  19. 1160 iflen(c$)=7ormid$(c$,8,1)=" "then8500
  20. 1170 iflen(c$)=8ormid$(c$,9,1)=" "then9000
  21. 1180 iflen(c$)=9ormid$(c$,10,1)=" "then9500
  22. 1190 iflen(c$)=11ormid$(c$,12,1)=" "then9600
  23. 1200 printa$(1):goto1000
  24. 1210 fl=0:ifdark=1and(l=0 or o(15))thenfl=1
  25. 1212 iffl=1thenprint"[208]oe wrote in the 19th century.  [212]hat "
  26. 1214 iffl=1thenprint"was before they invented x-rays vision."
  27. 1216 iffl=1thenprint"[201]t's dark in here!!!":goto1000
  28. 1218 fl=0
  29. 1220 ifc$="s"then1320
  30. 1230 ifc$="n"then1340
  31. 1240 ifc$="w"then1370
  32. 1250 ifc$="e"then1400
  33. 1260 ifc$="u"then1440
  34. 1270 ifc$="d"then1600
  35. 1280 ifc$="i"then14100
  36. 1290 ifleft$(c$,1)<>"l"thenprinta$(2):printleft$(c$,1):goto1000
  37. 1300 ifc$="l"then13500
  38. 1310 c$="look"+mid$(c$,2):goto4000
  39. 1320 ifs=0 thenprinta$(3):goto1000
  40. 1330 r=r-1:goto13000
  41. 1340 ifn=0thenprinta$(3):goto1000
  42. 1350 ifr=1andd(1)=0thenprinta$(4):goto1000
  43. 1360 r=r+1:goto13000
  44. 1370 ifw=0 thenprinta$(3):goto1000
  45. 1380 ifr=4thenprint"[201] can't do that.  [212]he moving wall has"
  46. 1382 ifr=4thenprint"blocked the door!":goto1000
  47. 1390 r=5:goto13000
  48. 1400 ife=0 thenprinta$(3):goto1000
  49. 1410 ifr=2thenr=4
  50. 1420 ifr=5thenr=2
  51. 1430 goto13000
  52. 1440 ifu=0 thenprinta$(3):goto1000
  53. 1450 ifr=2thens=1:gosub26000:goto1000
  54. 1460 ifr=4andwtthenprint"[201] can't fit. [201]'m carrying too much.":goto1000
  55. 1470 ifr=4thenr=6
  56. 1480 ifr=7thenr=3
  57. 1490 ifr=8thenr=7
  58. 1500 ifr=9thenr=8
  59. 1510 ifr=10thenr=9
  60. 1520 ifr=14andd(4)=0thenprinta$(4):goto1000
  61. 1530 ifr=14thenr=5
  62. 1540 ifr=13andd(5)=0thenprinta$(4):goto1000
  63. 1550 ifr=13thenr=14
  64. 1560 ifr=12andd(6)=0thenprinta$(4):goto1000
  65. 1570 ifr=12thenr=13
  66. 1580 ifr=11thenr=12
  67. 1590 goto13000
  68. 1600 ifr=8andd(3)thend=1
  69. 1610 ifd=0thenprinta$(3):goto1000
  70. 1615 ifr=6andd(8)=0thenprinta$(4):goto1000
  71. 1620 ifr=6thenr=2:s=2:gosub26000
  72. 1630 ifr=9thenr=10
  73. 1640 ifr=8thenr=9
  74. 1650 ifr=7thenr=8
  75. 1660 ifr=3andd(2)=0thenprinta$(5):goto1000
  76. 1670 ifr=3thenr=7
  77. 1680 ifr=12thenr=11
  78. 1690 ifr=13thenr=12
  79. 1700 ifr=14thenprinta$(4):goto1000
  80. 1710 goto13000
  81. 2000 rem2letter1stwords
  82. 2010 s$=left$(c$,2):s2$=" ":iflen(c$)>3thens2$=mid$(c$,4)
  83. 2020 ifs$<>"go"thenprinta$(2):prints$:goto1000
  84. 2030 ifc$="go"thenprinta$(1):goto1000
  85. 2040 fl=0:ifs2$<>"south"andr=3ando(7)=rthenfl=1
  86. 2042 iffl=1thenprint"[212]he orangutan won't let me.":goto1000
  87. 2044 fl=0
  88. 2050 fl=0:ifs2$="north"ors2$="south"ors2$="east"ors2$="west"ors2$="up"thenfl=1
  89. 2052 ifs2$="down"orfl=1thenc$=left$(s2$,1):goto1210
  90. 2054 fl=0
  91. 2100 ifs2$<>"clock"then2150
  92. 2110 ifr<>3thenprinta$(6):goto1000
  93. 2120 ifd(7)=0thenprint"[201]t has to be opened first.":goto1000
  94. 2130 ifd(2)=0thende=3:gosub27000:goto16000
  95. 2140 r=7:goto13000
  96. 2150 ifs2$="door"thens=3:gosub26000:goto1000
  97. 2155 ifs2$="hole"andr=8ando(22)=rthenr=9:goto13000
  98. 2160 fl=0:if(s2$="plaque"andr=1)or(s2$="ladder"andr=4)thenfl=1
  99. 2162 if((s2$="raven"ors2$="perch")andr=5)thenfl=1
  100. 2164 iffl=1thenprint"[207]kay.":fl=0:goto1000
  101. 2170 ifs2$="desk"andr=2thens=4:gosub26000:goto1000
  102. 2180 ifs2$<>"shelves"ands2$<>"bookshelves"then2250
  103. 2190 fl=0:ifr=2and(o(6)=roro(8)=r)thens=5:gosub26000:fl=1
  104. 2192 iffl=1thenifo(6)=rando(8)=rthens=6:gosub26000:fl=0
  105. 2200 ifr=2and(o(6)=roro(8)=r)then1000
  106. 2210 ifr=2ando(6)=1000thens=5:gosub26000:s=6:gosub26000:o(6)=r:o(8)=r:goto1000
  107. 2220 ifr=2thenprinta$(9):goto1000
  108. 2230 ifs2$=" ladder"andr=4thenprint"[207]kay.":goto1000
  109. 2240 ifs2$=" raven"ors2$=" perch"andr=5thenprint"[207]kay.":goto1000
  110. 2250 ifs2$="coffin"andr=5andd(4)thenr=14:goto13000
  111. 2260 ifs2$="coffin"andr=5thenprint"[201]t has to be opened first.":goto1000
  112. 2270 ifs2$="stairs"andr=7thenprint"up or down?":goto1000
  113. 2280 ifs2$="stairs"andr=8then1440
  114. 2290 ifs2$="walls"thenprinta$(1):goto1000
  115. 2300 ifleft$(s2$,4)<>"pass"then2340
  116. 2310 ifd(3)andr=8thenr=9:goto13000
  117. 2320 ifr=10thenr=9:goto13000
  118. 2330 ifr=9thenprinta$(9):goto1000
  119. 2340 ifs2$="pump"andr=10thens=46:gosub26000:goto1000
  120. 2350 ifs2$="ledge"andr=10thenprint"[201]t's too high up.":goto1000
  121. 2360 ifs2$="tree"andr=11then1440
  122. 2370 gosub63100:goto1000
  123. 2380 printa$(2):prints2$:goto1000
  124. 3000 remthreeletterwords
  125. 3010 s$=left$(c$,3):s2$="":iflen(c$)>4thens2$=mid$(c$,5)
  126. 3020 ifc$="run"thenprint"[201] need a direction.":goto1000
  127. 3030 ifs$="run"thenc$="go "+s2$:goto2020
  128. 3040 ifs$="get"thenc$="take "+s2$:goto4160
  129. 3050 ifs$<>"te"then3110
  130. 3060 ifs2$<>"string"thenprinta$(1):goto1000
  131. 3070 ifo(20)<>rando(20)thenprinta$(1):goto1000
  132. 3080 input"to what -- in one word?";c$:ifc$<>"bug"thenprinta$(10):goto1000
  133. 3090 ifo(16)thenprinta$(5):goto1000
  134. 3100 print"[207]kay.":te=1:o$(16)="small gold bug tied to piece of string."
  135. 3102 o$(20)="":o(20)=0:goto1000
  136. 3110 ifc$="say"thenprinta$(1):goto1000
  137. 3120 ifs$="say"thenprint"[207]kay.":prints2$:printa$(8):goto1000
  138. 3125 ifs$="put"thenc$="insert "+s2$:goto8000
  139. 3130 ifs$<>"eat"then3220
  140. 3140 ifs2$="banana"ando(9)=0thenprint"[217]ummy!":o(9)=1000:goto1000
  141. 3150 ifs2$="opium"ando(18)=0thens=7:gosub26000:o(18)=1000:goto1000
  142. 3160 ifs2$=" opium"thenprinta$(5):goto1000
  143. 3170 forx=1to23:reado$:ifs2$=o$ando(x)=0thenprinta$(10):x=50
  144. 3180 next
  145. 3190 restore
  146. 3200 ifx<50thenprinta$(1)
  147. 3210 restore:goto1000
  148. 3220 ifs$<>"pet"then3260
  149. 3230 ifo(7)<>rthenprinta$(10):goto1000
  150. 3240 fl=0:ifs2$="orangutan"thenfl=1
  151. 3242 iffl=1thenprint"[200]e looks at me strangely and waves his  hand at me.":goto1000
  152. 3244 fl=0
  153. 3250 printa$(1):goto1000
  154. 3260 ifs$="net"ando(14)=0thenfl=1
  155. 3262 iffl=1thenprint"[212]his is a butter fly net.  [196]o you think "s2$" looks like";
  156. 3264 iffl=1thenprint" a butterfly?":goto1000
  157. 3270 ifs$="net"thenprinta$(5):goto1000
  158. 3280 ifs$<>"rap"ands$<>"tap"ands$<>"hit"then3310
  159. 3290 fl=0:ifo(10)=0thenfl=1
  160. 3292 iffl=1thenprint"[201]f you want to hit something with the "
  161. 3294 iffl=1thenprint"pix, try the expression 'pick (blank)'."
  162. 3296 iffl=1thenprint"[205]eanwhile, without the pick..."
  163. 3298 fl=0
  164. 3300 printa$(8):goto1000
  165. 3310 ifs$<>"dig"then3990
  166. 3320 ifr<>11thens$="pick":goto5520
  167. 3330 ifo(10)=1thenprinta$(5):goto1000
  168. 3340 input"[215]here -- in one word?";c$
  169. 3342 ifc$<>"mark"andc$<>"bug"thenprinta$(8):goto1000
  170. 3350 o(22)=4:o(13)=r:print"[197]ureka!!  [215]e've found it!!!  [212]here's  "
  171. 3352 print"real treasure here at last!!!":sc=4:goto1000
  172. 3990 printa$(2):prints$:goto1000
  173. 4000 rem4letterwords
  174. 4010 s$=left$(c$,4):s2$="":iflen(c$)>5thens2$=mid$(c$,6)
  175. 4020 ifs$<>"read"then4140
  176. 4030 ifc$="read"thenprinta$(1):goto1000
  177. 4040 ifleft$(s2$,4)="book"thenprint"[208]lease be more specific.":goto1000
  178. 4050 ifs2$="lolita"ando(6)=0thens=8:gosub26000:goto1000
  179. 4060 fl=0:if(s2$="dictionary"ors2$="ameslan")ando(8)=0thenfl=1
  180. 4062 iffl=1thens=9:gosub26000:fr=1:fl=0:goto1000
  181. 4070 ifs2$="manuscript"ando(23)=0thens=10:gosub26000:goto1000
  182. 4080 ifs2$="plaque"andr=1thens=12:gosub26000:goto1000
  183. 4090 ifs2$="sign"andr=5thens=16:gosub26000:goto1000
  184. 4100 ifs2$="note"andr=6thens=17:gosub26000:goto1000
  185. 4110 fl=0:ifs2$="ameslan"ors2$="lolita"ors2$="dictionary"thenfl=1
  186. 4112 iffl=1ors2$="manuscript"thenprinta$(11):fl=0:goto1000
  187. 4120 ifs2$="plaque"ors2$="sign"ors2$="note"thenprinta$(6):goto1000
  188. 4130 printa$(1):goto1000
  189. 4140 ifs$="push"thenc$="press "+s2$:s$="press":goto6280
  190. 4150 ifs$<>"take"then4300
  191. 4160 ifc$="take"thenprinta$(1):goto1000
  192. 4170 ifs2$="inventory"then14100
  193. 4180 ifr=3ando(7)=rthenprint"[212]he orangutan won't let me.":goto1000
  194. 4190 ifs2$="all"thenprint"[208]lease be more specific.":goto1000
  195. 4200 ifleft$(s2$,3)="jug"thenprinta$(10):goto1000
  196. 4205 ifs2$="hole"thenprint"[206]ow really...":goto1000
  197. 4210 fl=0:ifs$="take"andwt=7thenprint"[201] can't do that. [201]'m":fl=1
  198. 4212 iffl=1thenprint"carrying too much already.":fl=0:goto1000
  199. 4220 ifs2$="dictionary"thens2$="ameslan"
  200. 4230 fl=0:ifs2$="raven"thenprint"[200]e bites me on the finger.":fl=1
  201. 4232 iffl=1t